home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Hops1.cpp < prev    next >
Encoding:
C/C++ Source or Header  |  1999-01-03  |  835 b   |  25 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Hops1.h"
  6.  
  7. //---------------------------------------------------------------------------
  8. #pragma resource "*.dfm"
  9.  
  10. const String Pfad = "c:\\cpp\\buch\\";  // oder Pfad fⁿr Buch-CD 
  11. TForm1 *Form1;   
  12. //---------------------------------------------------------------------------
  13. __fastcall TForm1::TForm1(TComponent* Owner)
  14.     : TForm(Owner)
  15. {
  16. }
  17. //---------------------------------------------------------------------------
  18. void __fastcall TForm1::FormCreate(TObject *Sender)
  19. {
  20.   Movie1 = new TMovie (this);
  21.   Movie1->Parent = this;
  22.   Movie1->Stretch = true;
  23.   Movie1->Picture->LoadFromFile (Pfad+"Hops1.bmp");
  24. }
  25. //---------------------------------------------------------------------------